   2 .
   4 .
   6 .
   8 .
  10 CLEAR ;NT=1;FC=7;BC=160;FOR A=1TO 180;@(A)=0;NEXT A
  20 FOR X=21TO -39STEP -10;LINE 75,X,1=XY;LINE -75,X,3;NEXT X
  25 T=5;GOSUB 320;T=0;P=0
  30 FOR X=-75TO 80STEP 15;LINE X,21,1=XY;LINE X,-39,1;NEXT X
  35 GOTO 120
  40 FOR B=1TO 2;GOSUB 700
  55 @(S)=D;NEXT B
  60 FOR B=1TO 8;GOSUB 700
  80 @(S)=E;NEXT B
  90 FOR M=1TO 4;GOSUB 700
 110 @(S)=1;NEXT M;RETURN 
 120 A=59;C=1;D=3;E=2;GOSUB 40;A=60;C=60;G=2;E=4;GOSUB 40;C=121;D=9;GOSUB 40;G=1
 150 IF G=1BC=160;CY=28;PRINT " MAIN FLOOR
 160 IF G=2BC=104;CY=28;PRINT " CELLAR    "
 170 IF G=3BC=80;CY=28;PRINT " DUNGEON   "
 175 CY=40;PRINT "                         "
 180 CY=28;CX=-10;PRINT "     LEVEL:",#2,G
 181 CY=40;CX=-20;INPUT "ROOM #:"R;IF R>60GOTO 180
 184 IF P<1GOSUB 330;GOSUB 600;P=2;GOTO 200
 185 GOSUB 600
 190 GOSUB 330;GOSUB 600
 200 IF G=2R=R+60
 210 IF G=3R=R+120
 220 IF @(R)=1GOSUB 400;CY=40;PRINT "  THE TREASURE IS MINE!!";CY=-38;CX=-42;PRINT "AND SO ARE YOU!";STOP
 230 IF @(R)=4G=1;CY=40;PRINT " VACUUM FORCE TO LEVEL 1";GOSUB 500
 240 IF @(R)=2G=2;CY=40;PRINT "SECRET PASSAGE TO LEVEL 2";GOSUB 500
 250 IF @(R)=3G=3;CY=40;PRINT "SECRET PASSAGE TO DUNGEON";GOSUB 500
 260 IF @(R)=9GOSUB 400;CY=40;PRINT "    YOU WIN THIS TIME !!";STOP
 270 CY=28;PRINT "       EMPTY-TRY AGAIN   "
 275 CY=28;PRINT "                       "
 280 GOTO 150
 320 FOR R=1TO 60
 330 IF R<=10K=R;I=0;GOTO 350
 340 I=R÷10;J=I×10;K=R-J;IF K=0K=10;I=I-1
 350 C=(-70+(15×(K-1)));I=(16-(I×10));IF T=5CY=I;CX=C;PRINT #1,R;NEXT R
 360 RETURN 
 400 CLEAR ;BC=135;FC=0;C=0;X=0;Y=-39;D=16
 410 FOR A=1TO 23;C=C+1;Y=Y+2;IF C>=14D=D-4;GOTO 430
 420 D=D+4;IF C=8E=12;Y=Y+5;GOTO 460
 430 IF C=14E=16;Y=Y+7;GOTO 450
 440 E=2
 450 IF C=14D=D+8
 460 BOX 0,Y,D,E,3;IF C=8Y=-13
 470 IF C=14Y=Y+7
 480 NEXT A;BOX 0,-20,24,3,3;BOX 0,-7,4,6,3
 490 FOR Z=1TO 5;MU=0;BOX 18,6,8,4,3;BOX -18,6,8,4,3;NEXT Z;RETURN 
 500 Y=0;FOR Y=0TO 500;NEXT Y;GOTO 150
 600 BOX C+3,I,14,10,3;RETURN 
 700 S=RND (A)+C;IF G>1IF S=60S=61
 710 IF @(S)>0GOTO 700
 720 RETURN 
>:RETURN ;RUN 
